home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-replace-to-length2 < prev    next >
Encoding:
Text File  |  1998-08-11  |  415 b   |  15 lines  |  [TEXT/ScoM]
  1. s-replace-to-length2 type duration new symbol length
  2.  
  3. (s-replace-to-length2 nil '1/8
  4.  '(ab bc cd de ef fg gh hi ij jk kl)
  5.  '(a b c d e f g h i j k l m n)
  6.  '(-1/8 1/12 2/12 1/8 -2/20 1/20 1/20 1/20 1/8 -1/8))
  7.  
  8. => (a ab bc d e f cd)
  9.  
  10. (s-replace-to-length2 :transpose '1/8
  11.  '(ab bc cd de ef fg gh hi ij jk kl)
  12.  '(a b c d e f g h i j k l m n)
  13.  '(-1/8 1/12 2/12 1/8 -2/20 1/20 1/20 1/20 1/8 -1/8))
  14.  
  15. => (a bc cd d e f gh)